home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
ue312src.zip
/
STMOUSE.S
< prev
next >
Wrap
Text File
|
1990-08-16
|
666b
|
23 lines
/ stmouse.s, a handler that preserves A0 across the call, and calls
/ two mouse routines.
/
/ 31-Dec-1987 Jeff Lomicka
/
/ mymouse( hdr1, hdr2) calls both handlers with A0 and stack parameter
/
.globl mymouse_
.globl first_mhandler_
.globl second_mhandler_
.shri
mymouse_: / Replacement mouse handler
move.l a0, -(a7) / Save value for second handler
move.l a0, -(a7) / Pass to first handler
movea.l first_mhandler_, a1 / Pick up second handler
jsr (a1) / Call first handler
addq $4,a7 / Recover stack
movea.l (a7), a0 / Recover A0
movea.l second_mhandler_, a1 / Pick up second handler
jsr (a1)
addq $4,a7 / Recover stack
rts